inherited f_Propriedades: Tf_Propriedades
  Left = 493
  Top = 116
  Width = 736
  Height = 547
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Top = 455
    Width = 720
    inherited btnProcurar: TBitBtn
      Caption = 'Variedades'
      OnClick = btnProcurarClick
    end
  end
  inherited MMJPanel2: TMMJPanel
    Width = 720
    inherited Label1: TLabel
      Left = 158
      Width = 410
      Caption = 'Cadastro de Propriedades'
    end
    inherited Label2: TLabel
      Left = 162
      Width = 410
      Caption = 'Cadastro de Propriedades'
    end
  end
  object MMJPanel3: TMMJPanel [2]
    Left = 0
    Top = 54
    Width = 720
    Height = 401
    Align = alClient
    TabOrder = 2
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clActiveCaption
    Background.EndColor = clWhite
    Background.FillType = GradUpDown
    object lbl2: TLabel
      Left = 18
      Top = 6
      Width = 54
      Height = 13
      Caption = 'Descri'#231#227'o :'
      Transparent = True
    end
    object lbl3: TLabel
      Left = 17
      Top = 46
      Width = 52
      Height = 13
      Caption = 'Endere'#231'o :'
      Transparent = True
    end
    object lbl4: TLabel
      Left = 17
      Top = 88
      Width = 70
      Height = 13
      Caption = 'Complemento :'
      Transparent = True
    end
    object lbl5: TLabel
      Left = 180
      Top = 88
      Width = 33
      Height = 13
      Caption = 'Bairro :'
      Transparent = True
    end
    object lbl7: TLabel
      Left = 20
      Top = 128
      Width = 25
      Height = 13
      Caption = 'Cep :'
      Transparent = True
    end
    object lbl8: TLabel
      Left = 116
      Top = 128
      Width = 20
      Height = 13
      Caption = 'UF :'
      Transparent = True
    end
    object lbl9: TLabel
      Left = 180
      Top = 128
      Width = 53
      Height = 13
      Caption = 'Metragem :'
      Transparent = True
    end
    object lbl10: TLabel
      Left = 345
      Top = 128
      Width = 107
      Height = 13
      Caption = 'Quantidade Estimada :'
      Transparent = True
    end
    object lbl11: TLabel
      Left = 545
      Top = 47
      Width = 64
      Height = 13
      Caption = 'Observa'#231#227'o :'
      Transparent = True
    end
    object lbl21: TLabel
      Left = 546
      Top = 7
      Width = 74
      Height = 13
      Caption = 'Data Cadastro :'
      Transparent = True
    end
    object lbl6: TLabel
      Left = 343
      Top = 88
      Width = 39
      Height = 13
      Caption = 'Cidade :'
      Transparent = True
    end
    object lbl1: TLabel
      Left = 343
      Top = 6
      Width = 92
      Height = 13
      Caption = 'Inscri'#231#227'o estadual :'
      Transparent = True
    end
    object dbedtPRO_DESCRICAO: TDBEdit
      Left = 18
      Top = 22
      Width = 323
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_DESCRICAO'
      DataSource = DtSrc
      TabOrder = 0
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_ENDERECO: TDBEdit
      Left = 17
      Top = 62
      Width = 496
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_ENDERECO'
      DataSource = DtSrc
      TabOrder = 3
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_COMPLEMENTO: TDBEdit
      Left = 17
      Top = 104
      Width = 160
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_COMPLEMENTO'
      DataSource = DtSrc
      TabOrder = 4
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_BAIRRO: TDBEdit
      Left = 180
      Top = 104
      Width = 160
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_BAIRRO'
      DataSource = DtSrc
      TabOrder = 5
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_CEP: TDBEdit
      Left = 20
      Top = 144
      Width = 93
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_CEP'
      DataSource = DtSrc
      TabOrder = 6
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_UF: TDBEdit
      Left = 116
      Top = 144
      Width = 61
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_UF'
      DataSource = DtSrc
      TabOrder = 7
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_METRAGEM: TDBEdit
      Left = 180
      Top = 144
      Width = 160
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_METRAGEM'
      DataSource = DtSrc
      TabOrder = 8
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_QUANTIDADETOTAL: TDBEdit
      Left = 345
      Top = 144
      Width = 167
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_QUANTIDADETOTAL'
      DataSource = DtSrc
      TabOrder = 9
      OnKeyPress = FormKeyPress
    end
    object dbmmoPRO_OBS: TDBMemo
      Left = 544
      Top = 62
      Width = 164
      Height = 104
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_OBS'
      DataSource = DtSrc
      TabOrder = 10
      OnKeyPress = FormKeyPress
    end
    object JvDBGrid1: TJvDBGrid
      Left = 21
      Top = 179
      Width = 685
      Height = 215
      BorderStyle = bsNone
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 11
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      BevelKind = bkFlat
      AutoSizeColumns = True
      AutoSizeColumnIndex = 1
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 17
      Columns = <
        item
          Expanded = False
          FieldName = 'PRO_ID'
          Title.Caption = 'Codigo'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Width = 220
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_METRAGEM'
          Title.Caption = 'Metragem'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_QUANTIDADETOTAL'
          Title.Caption = 'Qutde'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_QUTDECONTRATADA'
          Title.Caption = 'Contratada'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_QUTDEENTREGUE'
          Title.Caption = 'Entregue'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRO_SALDO'
          Title.Caption = 'Saldo'
          Visible = True
        end>
    end
    object JvDBDateEdit1: TJvDBDateEdit
      Left = 544
      Top = 22
      Width = 163
      Height = 21
      DataField = 'PRO_DATACADASTRO'
      DataSource = DtSrc
      BorderStyle = bsNone
      BevelKind = bkFlat
      TabOrder = 2
    end
    object dbedtPRO_CIDADE: TDBEdit
      Left = 343
      Top = 104
      Width = 170
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_CIDADE'
      DataSource = DtSrc
      TabOrder = 12
      OnKeyPress = FormKeyPress
    end
    object dbedtPRO_CIDADE1: TDBEdit
      Left = 343
      Top = 22
      Width = 170
      Height = 21
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'PRO_IE'
      DataSource = DtSrc
      TabOrder = 1
      OnKeyPress = FormKeyPress
    end
  end
  inherited DtSrc: TDataSource
    DataSet = ds_Prop
    Left = 626
    Top = 302
  end
  object s_Prop: TSQLDataSet
    CommandText = 'select * from PROPRIEDADES '#13#10'where FOR_ID = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 504
    Top = 302
    object s_PropPRO_ID: TIntegerField
      FieldName = 'PRO_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_PropFOR_ID: TIntegerField
      FieldName = 'FOR_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object s_PropPRO_DATACADASTRO: TDateField
      FieldName = 'PRO_DATACADASTRO'
      ProviderFlags = [pfInUpdate]
    end
    object s_PropPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object s_PropPRO_METRAGEM: TStringField
      FieldName = 'PRO_METRAGEM'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object s_PropPRO_ENDERECO: TStringField
      FieldName = 'PRO_ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_BAIRRO: TStringField
      FieldName = 'PRO_BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_CIDADE: TStringField
      FieldName = 'PRO_CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_CEP: TStringField
      FieldName = 'PRO_CEP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_UF: TStringField
      FieldName = 'PRO_UF'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_COMPLEMENTO: TStringField
      FieldName = 'PRO_COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_PropPRO_OBS: TStringField
      FieldName = 'PRO_OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object s_PropPRO_QUANTIDADETOTAL: TFloatField
      FieldName = 'PRO_QUANTIDADETOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object s_PropPRO_QUTDECONTRATADA: TFloatField
      FieldName = 'PRO_QUTDECONTRATADA'
      ProviderFlags = [pfInUpdate]
    end
    object s_PropPRO_QUTDEENTREGUE: TFloatField
      FieldName = 'PRO_QUTDEENTREGUE'
      ProviderFlags = [pfInUpdate]
    end
    object s_PropPRO_SALDO: TFloatField
      FieldName = 'PRO_SALDO'
      ProviderFlags = [pfInUpdate]
    end
    object s_PropPRO_IE: TStringField
      FieldName = 'PRO_IE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
  object p_Prop: TDataSetProvider
    DataSet = s_Prop
    UpdateMode = upWhereKeyOnly
    Left = 544
    Top = 302
  end
  object ds_Prop: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'p_Prop'
    Left = 584
    Top = 302
    object ds_PropPRO_ID: TIntegerField
      FieldName = 'PRO_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_PropFOR_ID: TIntegerField
      FieldName = 'FOR_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object ds_PropPRO_DATACADASTRO: TDateField
      FieldName = 'PRO_DATACADASTRO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_PropPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object ds_PropPRO_METRAGEM: TStringField
      FieldName = 'PRO_METRAGEM'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object ds_PropPRO_ENDERECO: TStringField
      FieldName = 'PRO_ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_BAIRRO: TStringField
      FieldName = 'PRO_BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_CIDADE: TStringField
      FieldName = 'PRO_CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_CEP: TStringField
      FieldName = 'PRO_CEP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_UF: TStringField
      FieldName = 'PRO_UF'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_COMPLEMENTO: TStringField
      FieldName = 'PRO_COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_PropPRO_OBS: TStringField
      FieldName = 'PRO_OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object ds_PropPRO_QUANTIDADETOTAL: TFloatField
      FieldName = 'PRO_QUANTIDADETOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object ds_PropPRO_QUTDECONTRATADA: TFloatField
      FieldName = 'PRO_QUTDECONTRATADA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_PropPRO_QUTDEENTREGUE: TFloatField
      FieldName = 'PRO_QUTDEENTREGUE'
      ProviderFlags = [pfInUpdate]
    end
    object ds_PropPRO_SALDO: TFloatField
      FieldName = 'PRO_SALDO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_PropPRO_IE: TStringField
      FieldName = 'PRO_IE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
end
